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Hi, 

Another good meeting, with Roger Lockerbie giving a talk on Zen, and how to 
go about it! We all grouped around the machines and leam't how to use 
Zen. Roger's 'talk' is further on in this newsletter. Thank you, Roger. 
For those who don't know, Roger is only 13 years old. 

Only 42 were able to come to the last meeting, hopefully, more will be at 
our Christmas party/social evening. Please remember to 'bring a plate' on 
the 10th December. 

a*###*##**####*#*###*####*#**#*##**#*#*##### 

We would like to welcome all of the following new members: 

Auckland members 

Brian Boreham, 125 Weatherly Road, Torbay 
Daryl Major, 90 Gloria Avenue, Te Atatu 
Ron Lietz, 76 Renfrew Avenue, Sandringham 
Henry van Sitter, Forest Hill Rd, RD1 , Henderson 


country members 

Kevin Hunter . 18 Elizabeth Street, Feilding 

Kevin Smith, P 0 Box 9427, Wellington 

I.M. Scott, 9 Kanpur Rd, Khandallah, Wellington 

Johnny Keogh, 58 El ms lie Rd, Pinehaven, Hutt County 

Brendon Maher, 314 Levers Rd, Tauranga 

H. Nausbain. 135 Waterloo Road, Lower Hutt 

Kerry Reid, 124 Orere Road, R.D.2, Clevedon 

Andrew Goodchild, 47 Tilbury Street, Lower Hutt 

David Ryder, 23 Richmond Avenue, Nelson 

Mr D. Habing, 270B Somme Parade. Wanganui 

Murray Battersby, Murrellen Piggeries, Raecombe Rd. Sheffield, Canterbury 
Waitara High School, Attn: Ron Kivell, Waitara 

These are all members who have joined since the last list was published in 
Newsletter #9. 

a#*####***##**#####*###*##**###*####**##*## 


State of Accounts 

Balance as at the 25th of November 1984 387.76 

Monies paid in by members - software sales + 1929.00 


less monies paid out over the 
rent (for both Nov and Dec) 
photocopying hire and paper- 
stationery 
postage 

software/hardware purchases 


2316.76 

month :- 
30.00 
511.90 
12.80 
30.00 

243.75 - 818.45 


balance in cheque account $ 1488.31 
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The first meeting in the New Year will be on 4th February 1984 at 7.30 p.ro. 
There will be photocopies of some good TRS80 programs at our next meeting 
(on 10th December) - anyone who would like something to do over Christmas 
is very welcome to take some home and see what they can do with them to get 
them converted to the Genie. Once they are converted, please send us a 
tape so that we can put them into the newsletter. (Your tape will be 
returned). Some of these programs look very good, and most look fairly 
easy to convert. (Not too many peeks and pokes!) Country members are 
welcome to write and ask for some if they would like them. I have had 2 
copies of each program made. These program listings are courtesy of the 
Hills family in Wellington. 

*********************************************** 


Cassette Interface 

Mark Langdon now has available, a cassette interface for the Colour Genie. 
It uses the commands CLOAD, CSAVE, and SYSTEM to operate the cassette's 
motor via the 'REMOTE' jack. 

The modification involves fitting a small p.c.b. inside the Genie, and' 
soldering various wires to the main p.c.b. and pins 1 and 3 on the 
cassette socket. 


Unfortunately, the existing cable cannot be used, but he can make some up 
on request. 

The mod. kits are available only when a minimum order of 10 is reached 
(keeps prices very low). 

Prices kitset $ 16.00 

built and tested $ 17.00 

fitted into your computer $ 20.00 


For those who feel they are not able to carry out the mod Mark will be 
happy to do it for you (approx. 2 hours to fit and test.) 


If you want one, please order from Nola. 


- Mark 


it************************************************* 


Langdon 


- 3 have been ordered already - another 7 to go. - Nola 


Software Production or the lack of it. 

Please forgive the unfortunately necessary delays on any software recently. 
First of ail, my TV went on the blink and I was without it for a week. 
This means grabbing the family TV in the lounge, which is nearly 
impossible!! Now, for some unexplainable reason, nothing I copy will 
verify - and I mean nothing at all!!!! Goodness knows what I am going to 
do now. 

Also, Bak Pak is still delayed due to colour problems. Hopefully, all 
those who have ordered and paid for this program will get it over the next 
two weeks. Sorry about the delay over this program, but these little 
'gremlins' have been very hard to find. 


All the best for Christmas and the New Year. 


- Nola Huggins 



EDITORS NOTES 


Another good meeting last month but with a slightly lower turnout. I 
assume you are all to busy with your GENIES as t-here isn't any other 
good reason. 

This months talk was given by Roger one of our younger members who 
gave a very interesting and i reformative talk on the workings and use 
of ZEN. His notes are included in this newsletter. 


With Xmas coming some things to note. 

The next meeting on DEC 10 is to be a social gathering with liquid 
refreshment to be supplied by the club. So pleae bring a plate. 
There will be no talks but there will still be the oppotunity to order 
and pick up software. Software sales over Xmas will be available. 

Many thanks to 
NOLft’, OLWEN, KEN, ANDY, ERNIE 

and everyone else who has helped to make the club the great success 

it is. 

* There will not be a meeting in January. The first meeting of the new 
year will be on MONDAY 4th FEB. 

At that meeting along with the regular features there will be the 
first of a series of talks to be held in the small room at 8pm for 
pure beginers in BASIC. The reference for this will be a book called 
BASIC PROGRAMMING (DO IT YOURSELF) by Arnold Wolff published by CCH 
Aust Ltd. 

Thirdly a few extra programs this month to hold off any withdrawal 
symptoms over the two month break. 

Finally to all the members not able to make the Dec meeting. 

MERRY CHRISTMAS and a GOOD NEW YEAR 


ON CONVERTING PROGRAMMES : 


some notes 


by Keith McGill 

Many of us have no doubt converted TRS-80 programmes to CG. These do 
not present too many problems unless you get into some more obscure 
PEEKS & POKES or SETS ?< RESETS. Many of the changes involve the 
different screen formats of the two machines, and these are reasonably 
strai gh t for ward . 

However you may not be aware of the improvements that can be made in 
programmes such as David fihl’s (BASIC COMPUTER GAMES) or Tim 
Hartnell's (GIANT BOOK of COMPUTER GAMES) which a written in a more 
universal but "lowest common denominator " microsoft basic. These 
programmes work quite well as is, but can be improved by exploiting 
the extra features of CG — col our , sound , graph i cs or even the simple 
PRINT 0 function. 

For example to add a beep when something happens try a GOSUB to this 
rout i ne 

FOR X= 1T05: CALL357C; FOR P= 1 T020: NEX TP: NEXT X : RETURN 

Or, in a board game such as OTHELLO in the OCT newsletter try 
changing "W" (WHITE) and "B" (BLACK) to MODSEL / SHIFT F (WHITE) and 
MODSEL / SHIFT A (BLACK). You can also add an INPUT to accept the 
names of the players (N1$,N2$) and substitute these variables for 
white and black. 

Again with OTHELLO as an example try the following change to improve 
the presentation s— Instead of the screen scrolling each time a move 
is made and the board is reprinted — The board stays still and the 
pieces magically (?) move. 

8000 PRINT0O, ; SPRINT04O, " 1 2345673" 

If you do no more than this yu will find that the prin statements 
"WHITES TURN" "CHECKING" etc will foul things up . You will need to 
put them into PRINT'D statements too. I suggest changing lines 
800,1120,1140,1145,1301 at least b adding PRINT08OO, statements each 
of the same length. To avoid a further difficulty I omitted line 1101 
( It could go as an instructions sub-routine if you wish ). If you 
want a little colour too I suggest adding: - 
8700 COLOURS; PRINT "W" 

8705 CQL0UR4 

8900 C0L0UR7 ; PR I NT " B " 

8905 C0L0UR4 



TALK ON "ZEN 


<R> means press "RETURN" 


Once ZEN is loaded press "E" <R> 

A cursor should appear. Then enter the programme as it shows. 

Press". "<R> and you should have ZEN's prompt, in order to check that 
evrything is OK type "A" (for assemble) <R>. You will then get an 
option, type "V" (for video screen), wait for awhile — If you hear a 
"ting" followed by a displayed piece of code you have made a mistake. 
Press "," and you will see that line. Backspace to the begin! ng and 
type it again then press <R> Now type "A" <R> "V" <R>. When prompt 
appears you will see what you typed pus some No’s and letters. 

Now to save it — 

Press "A" <R> then "C" <R> L for cassette. You should see "NAME > 

"followed by a cursor, type in your name for the programme then <R> 

You will get the message "tape" put in a blank tape and press RECORD 
ad press the space bar about 1 second later ZEN prompt will repeat. 

Now rewind the tape and press both "RST" keys - type "SYSTEM" <R> 

followed by your name for the programme. Two asterixes should appear 
followed by the message and a prompt. Press both "RST" keys and type 
59E6 <R>. You are now back in "Z E N". < • 

ORG 7 00 OH 

START: CALL PMESS 

DB' I am the colour genie' 1,13,0 

RET 

PMESS: POP HL 

LOOP: LD A, (HL) 

INC HL 
OR A 

JR Z , LEND 
PUSH HL 
CALL 33 H 
POP HL 
JR LOOP 
LEND: JP (HL) 

ORG 41E2H 
JP START 
EXEC START 
END 


ROGER 


The Incut Module 

Ever had trouble with REDO 7 , EXTRA IGNORED? or, shown vour friends vour latest creation. only to ha^e one cf 
them cress the wrong key. sending vour orograa into fits' 5 

I have, and'therefore I was ol eased to review one of the latest utilities fro* Gumboot. the Inout Module. 

The concent of this orograa is siaole enouoh.lt is Basic oroora/n which is either 'meroed'or inserted into 
vour own orograms. It sits at the end of vour program and becoies part of it. All inputs froa the keyboard are then 
handled bv this module. (not an INPUT statement in sight). 

You write vour orograa as noreal. but replace anv INPUT statements with a call to the module, i.e. you use a 
GOSUB.lt allows you to define what sort of characters vour crooram will acceot i.e. Integers, Decimals. Letters. 
Commas. mixed etc. It stops all the stuoid little mistakes which are so easv to make. Remember the old adage "Garbage 
in.Garbaoe cut"? It also lets vou get on with writing vour crogram.without having to write heaps of code to catch 
every conceivable error. 

Not only that, it lets vou set the number of characters vour orogram will acceot, Sav vou've drawn a nice 
form on the screen, with an inout waitino for a teleohone number. Some loony comes along and tvoes in 
15369733432. right through vour nicelv drawn box, The Input Module stops all that. Another nice function is the Field 
Brackets. which'are visual indicators to the user of vour orograa, tel 1 ing hist how many characters he can upe m. 
e. a. Name \ / 

Hut is how it would I ook-or e 1 1 v neat huh?These can be on or off. The distance between the brackets is set b* 
the number of characters vou are allowino the user of vour orograa to inout. 

Further functions are; the ability to set uooer and lower limits to numeric inoutsia keyboard bleep. and 
string oadding with blanks. 

it i s ver v easv to use. and comes with full instructionslthese are very cle*' and concise). The module takes 
awav a lot of the hassle of writing long.comclex prooraas. in fact, anything using INPUT statements, 

Hv verdi c t?A very good orogram, which vou will be turnino to time and time again. It lets vou write programs 
to a orofessional standardiwithcut being a or of essional . 1 am certainly ooing to use it. and I think it will be a 
Godsend to a lot of oeoole. 

E.J. 


P.C.B.Graohics Editor, 

What is a P.C.B.? Well, aooarentlv. it stands for Picture Object Block, so now vou know. A F.O.B. is a iarce. 
user defineable object of 16 X 24 oixelsl304 oixels) 

Examples of the oictures vou can mak e are, cars, faces, heiicooters. animals etc. If vou are into writing vour 

own caies, or just want good graohics in vour programs, this is for vou, 

Cn running the orograii. vou are oresenteif wi th a large arid, and asked if vou require mirror image. !f vou dc. 
anything desioned on the left side of the end is mirrored oh the right hand side, (useful for drawinc butterflies 
etclrou use the arrow ke vs to move a marker, and can lioht any of the d i xel s . You can also Autc fill the oixels. 
allowino vou to fill objects in. My first attemot was a train, 1 then'oressed a kev. and uo came a 16 colour oallet.a 
column of commands .and a box. After a few seconds, a train appeared in this box, a oerfect miniature of a; laroe 
train (which was still on the screen ) i t was white, and the number 1 aooeared underneath the box. 

Vou can use simple commands to chance the colour of the POB. usina the sixteen colour oaliet. There are also 
commands to enable vou to invert the POB either horizontally or vertically. This is for oaiaes, where vou want the same 
object. facing in another direction. Ever seen an uoside-down train? 

Other commands are: Edit. which also works on the iarae orid. POB, to check on the RGBs ygu have airead, 
designed etc., LOCK, which locks the POB into the croorasi listino itself.lt converts vour oicture mtc DA r A 
statements at the end of the orooram.Each time a POB is locked, it is aiyen a number oarticular tc that ROB. 

When vou have desioned all the POBs you want, you oress a kev. and the Editor deletes itself .leaving behind 

the POB graohics routines. and the DATA statements it has created. You can tnen siaolv save these on taoe as a 
program. in the normai wav, 

Now vou can write a orograa using the POBs vou ha\e just created, it's all so easv to do! 

The POB araohic routines handle the disolavina and deletino of POBs on the screen, and there is even a built 

in collision detector , When vou want to disolav a POB. ’all it needs i s the screen oosition, and the POB number, and it 
aDDears instantly in the colour it was created in. 

Uo to 20 POBs can be used at one tune, and the difference thev make to vour orogram has to be seen to be 

believed, The instructions are very oood and easv to understand. and include a samole orogra* for the user tu tvoe in. 

Gumboot Software which uses POB Graohics includes Pick \ Match, Snake Snatch. and Demon Derby. 

In av coimon. this is a orooraa everyone should have, and one which vou will never orew tired of, 

E.J. ’ * 


6aies Pack 4. Deion Derby/Intelligcnt Baits Board, This is a very good tape containing three 

prograis altogether, as the Intelligent Gases Board has both four in a line (Connect 4) and Reversi (Othello) on it. 
Deion Derby is a gaae using P.O.B. Graphics, where you have to chase deions using a tank, Once you catch a Deion, it 
turns into a gravestone, which will get in your way, and can kill you if you touch it. Every so often, a Super Deaon 

will appear, and if it catches your tank, it will turn into a renal ed less, putting even sore obstacles in your path. 

The two other gases on this tape are extresely good versions cf the ones they are based on. and the four in a line 
one prevents anyone froi cheating, because as soon as a line is completed, it flashes the line on and off so that you 
can't eiss it, 

Snake Snitch, 

This is another gaie which uses the extriaely useful F.O.B. graphics. You are a snake, which has to go round 
the screen eating various things which appear at randoe, and are worth varying aiounts of points. The screen is full 
of toadstools which you are not allowed to eat or you will be poisened and die, but every now and then, a giant 
■ushrooe appears which you can eat, and which ,once eaten, allots you to eat just one toadstool. The catch in this 

gate is that every tiae you eat something, you grow an extra sclent, taking your snake very difficult to control, so 

it really is a qaae which needs considerable skill at lanouevc; ing. 


1 


10 CHAR4 
20 CLS:C0L0UR1 
30 DEFINT A-E,G-Z 
AO SZ« 17408 

50 PRINT01O , m fJOf SOf tOfSfu " 

60 PR I NT05O 9 * f eOC ZOf JOT Pf j " 

70 PRINT017O," BY J. MARSHALL U J. GRUN01L. " 

80 PRI NT021O , * CONVERTED FOR C. GENIE BY B. WALKER" 

90 G0SUB760 
100 CHARI 

110 PRINT012, "Mower" 

120 PRINT© 454, “ INSTRUCTIONS" 

130 PRINT048O, "The object is to drive your mower arbund the garden & cut down al 
1 the weeds, while AVOIDING the flowers & the garden wall. Cutting down a -flow© 
r or colliding with the wall will LOSE you a life. You have 3 lifes to start wit 
h. " 

140 C0L0UR4 

150 PRINTS725, "FLOWERS - e j CHR* ( 144 ) 

160 C0L0UR2 

170 PRINT0765, "WEEDS « "|CHR*<146) 

180 C0L0UR3 

190 PRINT08O5, "WALL - " I STRING* (2, 145) 

200 C0L0UR7 

210 PRINT0845, "MOWER - " | CHR* 1132) | CHR* ( 134 ) S PRINT0894, CHR* C 133) | CHR* ( 135) 

220 PRINT0925, "CONTROLS - USE ARROW KEYS" I 
230 FOR PAUSE* 1 TO 4000: NEXT PAUSE 
240 FL=15: X2=0: Y2=0: SC=0: LV=i : LIV=3 

250 CLS:PRINT@922, " SCORE- " J SC \ :PRINT0934, "Hi Score= H |HI| :PRINT@949, M LEVEL " ; LV J 
260 PRINT0882, "LIVES*" J LI V I : PR INT09OO , 20-WEEDS ; :PRINT@893, "WEEDS"; 

270 COLOURS: PRINT0O, STRING* (40, 145) ; 

280 PR I NT08OO , STR I NG* ( 40 , 145) ; 

290 FOR F=40 TO 760 STEP 40 : PRINT0F , CHR* ( 1 45 ) : PRI NT0F+39 , CHR* ( 145 M : NEXT F 
300 COLOUR 4: FOR F=1 TO FL 

310 FZ = RND(759) : IFFZ<41 0RCFZM49 AND FZ< 153) 0R(FZ>189 AND FZ<193) 

OR ( FZ > 1 09 AND FZ<113) THEN 310 
320 PR INT0FZ , CHR* ( 1 44 ) ; 

330 IF POS ( 0 ) < 2 THEN C0L0UR3 : PRINT 0 FZ , CHR* < 1 45 M : C0L0UR4 ! GOTO 310 

340 NEXT F 

350 FOR F= 1 TO 20 

360 FZ=RND (759) : IF FZ<41 OR FZ=150 0RFZ = 151 OR FZ=190 OR FZ=191 THEN 360 

370 FOR FY=0 T01 

380 PO=PEEK < FZ+FY+ 1 7408 ) : IF P0< >32 THEN 360 
390 NEXT FY 

400 C0L0UR2 : PRINT0 ( FZ ),CHR*(146)i 
410 NEXT F 
420 C0L0UR7 

430 X=150: A*=CHR*( 132) +CHR*(134> : B*=CHR* ( 1 33 ) +CHR*(135> : X2=0 : Y= 150 : WEEDS=0 : IFPE 

EK < 17403 +X) =146THENWEEDS=1 : IFPEEK17409+X) = 1 46THENWEEDS=WEEDS+ 1 : IFPEEK ( 17448+X) -1 
46 THEN WEEDS=WEEDS+l: IF PEEK ( 17449+X) =146THENWEED3=WEEDS+ 1 
440 PRINT0X , A*: PRINT0X+4O, B* 

450 C0L0UR7 

460 SOUND 7 , 207 1 SOUND 3,l:S0UND 13,12:S0UND 6,25:S0UND 12,l:S0UND 11,100:S 

OUND 9,16 

470 I =PEEK < - 1984 ) : IF 1=0 THEN X2=0:G0T0 


530 


430 IF I=32THEN X2=-l : A*=CHR* ( 1 40 > + CHR* < 142) 2 B*=CHR*< 141 ) +CHR* < 143) 2 

GOTO 320 

490 IF 1=64 THEN X2=i 2 A*=CHR* ( 137 ) +CHR* ( 1 38 ) 2 B*=CHR* < 1 36) +CHR* ( 1 39 ) 2 G0T0520 
500 IF 1 = 8 THEN X2=-40 2 A*«CHR* ( 1 28 ) +CHR* ( 1 29 ) 2 B*=CHRS ( 1 30 ) +CHR* ( 1 31 ) 2 GOTO 520 
510 IF 1=16 THEN X2=40 2 A*=CHR* ( 1 32 ) + CHR* ( 1 34 ) : BS=CHR* ( 1 33 ) +CHR* ( 1 35 ) 

520 Y=X2X=X+X2 

530 P0=1 7408 + X 2P1 = 145 2 GOSUB 6802 Pl = 144 2P9=P2:GOSUB 6802 IF P9< >P2 TH 

EN GOSUB 1030 

540 IF P2 >0 THEN GOSUB 600 2 P2=0 2 LI V=L I V- 1 2 PR I NT0889 , L I V ; 2 X2=0 2 Y2 = 0 2 X= 1 50 2 A*= 
CHRSM 132) +CHR$< 134) 2 B*=CHR* ( 1 33 ) +CHR* ( 1 35 ) 2 FOR PAUSE=1 TO 300 2 NEXT PAUSE 2 PRIN 
T<2Y," ” ; 2 PRINTQY+40, " " » 2 PR INT0X , " " 5 2 PRINTQX + 40 , " " 5 2 IF LIVE>0 THEN 460 ELS 
E 730 

550 PRINT0893, "WEEDS" | 

560 Pl=1462 GOSUB 6802lFP2>0 THEN GOSUB 630 2 WEEDS=WEEDS+P2 2 SC=SC + ( 1 0*P2 ) 2 PRI 

NT@928,SCS 2PRINT@900,20-WEEDS8 2 PRINTQY, " "f 2PRINTQY+40, M "f 2PRINT0X, " - J 2P2=0 2 

IF WEEDS< 20 THEN 570 ELSE 590 
570 PRINTQY," " 5 2 PR INTQY+40, " "5 

580 PRINTQ(X) , A$; 2PRINT@(X) +40,B$; 2 GOTO 470 

590 S0UND9, 0 2 FL=FL + 1 0 2 AS=CHRi* (1 32 ) +CHR*< 134) 2 B*=CHR* < 133) +CHR*(135) 2 X=» 

150 2X2=0: Y2=0 2 LV=LV+i : LIU=LIV+1 2 WEEDS=0 2G0T0 250 
600 SOUND 9,0230UND 6,02S0UND 7,72SOUND 8,162SOUND 9,162SOUND 10,162S0UND 

i 2 , 56 2 SOUND 13,0 
610 S0UND9 , 0 
620 RETURN 

630 SOUND 13, 1 2 S0UND9, 16 
640 FOR ZZ= 1 TO 30 2 NEXT 
650 S0UND13, 12: S0UND9, 16 
660 RETURN 
670 END 

680 IF PFFK(PO)=F.t THEN P2=P2+1 
690 IF PEEK (POM ) =P1 THEN P2=P2+1 
700 IF FEEK < PG + 40 ) =P 1 THEN P2=P2+1 
710 IF FEEK (PO+41 ) =P1 THEM P2=P2+1 
770 RETURN 

730 PR INTO 135 , " Game Over " ; 2 FOR PAUSE=1 TO 5002 NEXT PAUSE 2 CLS 2 IF SC>HI THEN HI = 
sc: GOTO 240 
740 GOTO 240 
750 END 

760 FOR F= - 3072 TO -29212READ Z 2 POKEF , Z 2 NEXT F 

770 DATA 43,63,43,63,48,63,24,7 

770 DATA 24,248,24,248,24,248,48,192 

7^0 DATA 3,3, 3,3,4,8,8,15 

£00 DATA 123,123,128,128,64,32,32,224 

310 DATA 15,3,8,4,3,3,3,3 

£20 DATA 7,24,63,48,63,48,63,48 

S30 DATA 224,32,32,64,128,128,128,128 

840 DATA 724,24,252,12,252,12,252,12 

350 DATA 143,143,144,224,0,0,0,0 

£60 DATA 0, 0, 0, 0, 0, 244, 144, 143 

E-’O DATA O , O, 0, 63, 127, 170, 170, 170 

870 DATA 1“*0, 170, 170, 234, 127,63,0,0 

G 70 DATA 0,0,252,254,87,85,85,85 

700 DATA 35 , 35 , 87 , 254 , 252 ,0,0,0 

PIO DATA 0,0,0, 0,7,9,241,241 


9Z0 DATA 241,9,7,0,0,0,0,0 
920 DATA 0,56, 63, 84, 56, 84, 40, 48 
9-9 DATA 223,223,223,0,253,253,253,0 
750 DATA36, 40, 146,84,40,20,4,3 

960 RETURN 

970 IF F EZK \ FZ ) = 144 THEN AZ=i: RETURN 

20 RETURN 

9 : 9 IF FZE‘< (PZ) = 145 THEN AZ = 1 : RETURN 

1900 
1-2 10 
-.020 
1030 
t 9 40 
1 0*30 

1 v6\J 

12 70 


RETURN 


IF FLIEK (FZ) =146 THEN 
RE TURN 

IF FZEK ( 17403+X) =144 
IT FFEK < 17409+X) =144 
TF PEEK ( 17448+X ) =1 44 
IF FEEK ( 17449-rX) =144 

RETURN 


AZ=i: RETURN 

THEN PRINT0X, ■ - 5 

THEN PRINTQX+1 , “ " f 

THEN PRINTSX+40, 11 M | 
THEN PRINTQX + 41, " M J 


MOTES ON MOWER 


Mcv rr car.es fl aw Haute Computer Weekly No, 59. It was a Spectrum program. 
!9- 220 Introduction & instructions 
230' 450 lev ine variables Zc set up main screen 
4u0 mower sound 

r'/u 510 move mower 

540- 360 check to see it you will hit a weed, wall, or Flower. 

270- 3G0 change mower to new position 
290 set variables ready For next screen 

670 hit wall/ flower sound. 

679 - 650 weed sound routine 

690- 710 routine to check if there are weeds in the way oF the 
mower . 

“’TO game over routine. 

7u0- 9a0 user defined graphics data 
1050-1070 remove flowers when they are hit 


lilies jO -60 should be the Fol lowing char ac ter s . see appendix c oF 

h a i> c 0c c U • 

live wC : 219,202,207,219,211,207,219,212,207,219,211,219,245 

1 : 60 : 2 19 ^ 229, 207, 219, 213, 207, 219, 202, 207 ,219, 208, 219, 234 


50 CLSs COLOUR 1 

100 PRINT 394,"* CALENDAR *" 

110 PR I NT SPRINT SPRINT 

120 PRINT "WHAT YEAR BETWEEN 1600 AND 2300 WOULD YOU 

130 INPUT X 

140 IF X< 1600 OR X >2300 THEN PR I NT "EVEN I MAKE MISTAKES": 
150 C=6 

160 FOR J = 1 600 TO X 
170 IF J=X THEN 230 
180 IF J/ 40 1 NT (J/4) THEN220 

190 IF ( J-1700) * (J-1800) * ( J-1900) * (J-2100) * (J-2200) * ( J-2^ 
200 C=C+2 
210 GOTO 230 
220 C=C+l 

230 IF C< 7 THEN250 

240 C=C-7 

250 NEXT J 

260 PRINT 

270 FOR R= 1 TO 12 

280 READ A$ 

290 PR I NTT AB (15); A$ ; " " ; X 
300 READ B 

310 IF X/4< >INT < X/4) THEN340 
64 IF A$< >" FEBRUARY" THEN 340 
330 B=B+ 1 
340 REM 

350 PR I NT ••=== = = = = = ===*= = = = = = ■== = = = = = ■ = *=:■ = = »=:■ = ■! = = =•• 

360 PR I NT "SUN MON TUE WED THU FRI SAT" 

380 FOR D- 1 TO B 

390 PRINTTAB (6#C) ; D; " "; 

400 C=C+1 

410 IF C< 7 THEN440 

420 PRINT 

430 C — 0 

440 NEXT D 

450 PRINT 

470 FOR P=1 TO 3 
480 PRINT 
490 NEXT P 

492 PR I NT "PRESS ANY KEY FOR THE NEXT MONTH" 

494 K$=INKEY$s IF K$=" " THEN 494 
500 NEXT R 

510 DATA "JANUARY" ,31 , "FEBRUARY" , 28, "MARCH", 31, "APRIL", 3< 
520 DATA "JUNE", 30, "JULY", 31, "AUGUST", 31, "SEPTEMBER" , 30, ' 
530 DATA "NOVEMBER", 30, "DECEMBER", 31 
540 INPUT" DO YOU WANT ANOTHER YEAR " ; Y$ 

550 IF LEFT$ ( Y$, 1 ) ="Y" THEN RESTOREsGOTO 50 
560 END 


LIKE"; 
;GOTO 120 

500 ) =0 THEN 


D, "MAY" ,31 
"OCTOBER" , 3 


This program from Kevin Hunter (a new member) is a different version of 'Character 
Generator, 'wich may need improving and debugging, but seems to work for him.' 

/ *9999 ft 9.J. Hunter production 9999 ' 

2 CLSiPRIBJ" Press <C) if you only tint danders off the tape else press iny key'} 

j Kumm-.if jheb j 

4 IF RU'V JHEB CLSiPRlMMlOi 'Press key F2 § -MLEJE 1-167 

5 CL £ All im'*.607Q2 

6 60SU8 141 ’7AP£ 9 

7 60511 9 125 * 99 HELP L1S7 99 

B COLOURIO: P0K£1 64 1 0 , l 01 : POKE! 7242 , Od 

9 6050997* 999999 COLOURED SM.9ASE 9 

10 605119 120*99 SUB CHRti ) PRIHJ8 9 

11 CHAR4:C=10 

12 P*m*l25i”) 

13 FOP L=1 JO B 

14 PRIBJJAB<5)STRIH6$<8 t i41) 

15 BEXT 

16 ft=I6444iAt=l6420:PRIRJC8R$<14)UX=125:GR=128 

17 P=PEEK<A)\Pt=PEEfUAl) 

18 IF P=B 7 HEH X=X-00 

19 IF P=16JHEB X=U40 

20 IF P-327 HEH X=X-1 

21 IF P=64JHEB X=XH 

22 IF P=8 ABO X(45JHEB X=X*40 

23 IF P=32ABD X(45 7B£B X=XH 

24 IF P=12B 7M£B PR1HJ8X, Vi iX=X*l 

75 IF Pl=31 7 B£B PR!RJiX,C8RS<l4l)' t '.X=X-l . 

26 IF PI =72 JHEB 60SU9 *75:6070? 

27 IF Pl=83 7 HER PRIBJ§50 t ‘Sivin$'i:GOSU8 63 

28 IF PI =47 JHEB 6050 B 48 

29 IF Pl=84 7H£B 60SU8152 -.60709 

30 PPIB7BX t CHP$U4n 

31 IF X=133 OR X=173 OR X=213 OR X=253 OR X=293 OR X=JJJ OR X=373 7 HER X-*X*J? 

J7 IF X=413 7 BEB X=50:PRlH7i50,’Sive‘ t , 

33 IF X=5 1 JHEB 60SUB 38 

34 IF X=67 7 BEB 60SU9 38 
J5 IF X)600 78EB 60508 103 

36 IF PlOO JHEB POXEAlfO 

37 607017 

38 PP=PEEX(A):Pl=PEER(ftn:PRIBJCHR$(l5) 

39 COLOUR C 

40 IF PP=8 JHEB 6R=GR+1 

41 IF PP=16JHEB 6R=6R-l 

42 IF 6R(32 JHEB 6R=32 

43 IF 6R)25 5 JHEB 69*255 

44 IF PP=32 OR PP=64 7HEBPRIB7CHR$ <14)i RE7URB 

45 PRIH789,6RUPRIRJR25,6R} 

46 PRlB7835 f CHR$<6R) 

47 607038 

48 CHARI : P09EA1 , 0 : PR1BJ851 , CHRSU27) : PRIBJ867, CHRt(I27) \ 

49 PRIRm,CBR$(14)' t :PP=PEEK(A):PC=PEEIUAl) 

50 IF PP=B JHEB X--X-I0 

51 IF PP=167HEB X=X*40 

52 IF PP=32 JHEB X--X-/ 

5J IF PP=64 JHEB X=X*1 

54 IF PC=47 JHEB PRIB7§X,CHR$(6R>i 

55 IF PC=13 JHEB CHAR4-.RE7URB 

56 IF PC =84 JHEB 50S0S/5?:6070« 

57 IF X=5 1 OR X=67 7 REB 605U8 38 

58 IF PP=B ABO X(45 JHEB X=X+40 

59 IF PP=32ABD X<45 JHEB X=X*1 

60 IF PP=16AB0 XJ880JHER X=X-40 


f 


! 


61 if pphpapd vmmn x*x-/ 

62 607049 

63 Mill POPE cm WO MU 1111111 

64 Q=0:FL s 0:LP s 0 

65 SP* 17532 

66 FOP FL=t TO 8 

67 OAH 

68 PP*PEEP(FL*SP):IF PP*14t THE* 60SUB 85 

69 IF PP S 202 7 PEP GOSl/B 77 

70 POPESP+FL i 141 

71 MV 

72 SP : SP+40:LP-L P+1 : 60SU8 87 

73 IF LP-B7HEP 60SVB 92 ELSE 66 

74 6P:6P+l : PPIP769 , 6P:PPlP7i25,6PiX=125 : PP1PH35, CHP$ (68) : PE70PP 

76 ' 

77 IF FL s l 7 HEP dA=l2B 

78 IF FL=2 78 EH 0A*64 

79 IF FL=3 7 HEP dA*32 

80 IF FL=4 7HEP 0A=i6 

81 IF FL = 5 7 HEP DA’B 

82 IF FL=6 7 HEP BAH 

83 IF Fi=7 7 HEP BAH 

84 IF FL=8 7 HEP M-/ 

55 B1=B1+DA 

86 nim 

87 8=0*hD2(Q):Dhdl=0i 

88 PE7VPP 

91 * 

92 FOP L=l 70 8 

93 POPE’ 3073* <<6P~ 128)18) +1,02(0 

94 HEM 

95 PP1P7849 ,* J 

96 PEI 8 PH 

97 as 

98 PPIP78910 

99 PPW ",:FOP A=l 70 15 

100 C0L08PA:PP1PVV\ 

101 PEX7:COL0UP10 

102 PE7HPP 

103 P:PEEP<A):P1=P£EP<AI) 

104 IF P-8 7 HEP MX-40 

105 IF P-167HEP WHO 

106 IF P= 327 HEP X=X-/ 

107 IF PH47HEP X*X+1 

108 IF P : 128 7 HEP 60SUB 115 

109 IF P=16 APB V : 898 7HEP X=X~40 

110 IF P=64 APB V-898 7 HEP X=X-l 

111 IF P-32 APB X-882 7HEP X*X+1 

112 IF X1800 7 HEP PE7VPP 

113 PPIP78X,CHP$U4)} 

114 P0PEA1 ,0:6070103 

115 C=X-882 

116 IF CU 7 HEP C=l 

117 IF 015 7 HEP 015 

Ilf f MW 

120 6PH28:PPIP7851,CHP$(145):PPIP7867 f CHP$(145) 


i2i coLomimnmrcHm )• 
m prirw 5 ,'prir 7 m$< r 

123 prir 7 P 9 , 8 R\prir 7 R 25 ,bri 

124 coLomOitnm 

125 CLS'.C0L0VR2:PRIR7 

126 PRIR7S7RIR6t(39,'9') 

127 COLOVRlOiPRIRW 35,' HUP LIST ", 

128 PRlR7:PRIR7'Clear key to rub out ' 

129 PRlR7tPRIR7'7 to save character on tape /■ 

134 PRIRl'.PRIHl'space bar to fill a square' 

131 PRIRliPRIRl' space bar to change colour ' 

152 PRlH7:PRIR7'arrow keys to aove around' 

133 PRIR7:PRIR7'7 key to print character* 

134 PRIRliPRIRl'S key to save rAaracfer* 

135 PRIRliPRIRl'h ( keys to change character Ho,' 

136 PRIH7:PRIH7'8ut you oust be in the J to cAaojt* 

137 PR1R7:PRIR7'R to get the help list' 

138 C0L0UR2 : PR1H7 : PH1H7S7H1H6$ < 39 t '*')} 

139 if mn$tr • 7 tun 139 

146 C0L00R10:RE7URR 

141 ' *********** 7 APE ***************** 

142 CLS:PR1RT:PRIR7:PRIR7:PRIR7 

143 PHW Set tape to play ' 

144 PRIRliPRIRV Please Mff 

145 PLmi,3,4,l5)\PLM(2,4,5,l5) 

146 FOR LL=l 70 1000:REX7 

147 6R=6R*l 

148 PLM<1,3,0,0)'.PIM<2,4,0,0) 

149 60SV9168 

150 RE7VRR 

151 ' 

157 S8=-3072iPRlR7PB80,'", 

153 PRIH7' Set tape to record then press space bar ", :PRIH7S7RIR6f<I4,8)} 

154 IF IRllltO' ' TIER 154 

155 PRIHJ' Please wait", 

156 6R=6R+t 

157 FOR S7=Sfi 70 SfiUBR- 127)18 

158 77=PEEKS7):1F 77-6 7 HER 77=154 

159 M=MK8Rt<77) 

160 IF LER(A$)=255 7HEH PRlR7i-l,A$ 

161 HEX 7 

167 IF LEH < M)()255 7 HER PRIH7hl,M 

163 PRWi-U'EOf 

164 PRIR7P880,' 

165 PLM<l,3,4,15):PLM<2,4,5,15h60SVi 97 

166 PlM<l,3,0,0>:PLM<2 t 4,0,0) 

167 RE7VR8 

1 68 S8=- 3672 : 8=8* 1 : IRPVlt- 1 , A$ (H) 

169 IF R$(R)='E0F' 7 HER 174 ELSE 168 

176 PRIR7:PRIR7:PRIR7iPRI87iPR187-,PRW' S70P 78PE ", 

171 PLPUI,3,4,15)\PLRH2,4,5,15) 

172 FOR 3=1 70 8-1 

173 8=118(88(3)) 

174 FOR 1=1 70 8 

175 17 =RSC(RId$(M<3),l,t))iIF 77=154 7 HER 77=0 

176 P0KESA*(X-l)*(3-l) ,77 

178 8EX71,3 

179 PLM<l,3,0,4hPLM(7,4,0 t 0) 

180 RE71/RR 


M' J 
db M 1 
" O 


J JJJJJ JJJb JJJJ JJJJ" 

’ J J J Mb J J 
JJJJ JJJJ J Mb JJJJ JJJJ” 

" O J J J J J Mb J J " 

M O J J J J J JJJJ JJJJ JJJJ" 

ADAPTED FROM A PROGRAMME FOR ZX81" : PRINT3360, "WRITTEN BY JULIAN SMITH, AND PUBLISHED IN 


FOR CGUG, AUCKLAND, BY KEITH McGILL" 


'COMPUTER INPUT', SEPT '0 


5 REMs INITIALIZATION ******************* 

10 CLS 

20 DIM S(13),X(5),D (255) , L* ( 13) , M (255) 

30 GOSUB 120s REMs TITLE & ZERO SCORES 
40 GOSUB 180s REM s HIGH SCORE ROUTINE 
50 GOSUB 210s REMs DICE THROW 
60 GOSUB 300: REM: SWAP POSITION ROUTINE 
70 GOSUB 440s REM: RETHROW ROUTINE 
80 GOSUB 650: REM; PRINT ^SELECT MENU 
90 GOTO 50 
100 GOTO 1340 
llO STOP 

120 PRINT®40,"d'Mb 

121 PRINT®80, 

122 PRINT® 120, 

123 PR I NT® 160, 

124 PRINT®200, 

126 PRINT®320, " 

4’* 

127 PRINT " WITH MUCH SWEAT AND PAIN 11 

128 PR I NT "BUT HOPEFULLY WITH A FEW IMPROVEMENTS, 

130 PRINT®840, "PRESS ANY KEY TO PLAY" 

140 K*=INKEY*s IF K*= M " THEN 140 ELSE 150 
150 CLS 

160 HSC=0sSC=O 
170 RETURN 

180 IF SOHSC THEN HSC=SC:SC~0 
190 TU*0 
200 RETURN 

210 PRINT®0, "HIGH SCORE" i HSC: PR I NT®25, "SCORE " ; SC 
220 IF TU= 13 THEN lOO 

225 REMsDICE THROW ROUTINE ************* 

230 FOR F=1 TO 5 
240 D <F) =RND (6) 

250 IF D <F) =*1 THEN M ( F ) =246ELSE I F D(F)=2 THENM (F ) =252ELSEIF D(F)=3 THEN M ( F ) =234ELSE I F D(F)=4 THEN M (F) *=247ELSEIF D(F)=5 THEN M(F)-249EL 

SEIF D <F) *»6 THEN M(F>=254 

260 PRINT®40*F*2+2, "DICE" ; F; CHR* (M (F> > 

270 NEXT F 
280 TH»lxTU*TU+l 
290 RETURN 

295 REM: SWAP POSITION ROUTINE *********** 

300 PRINT®640, "DO YOU WANT TO CHANGE THE ORDER OF THE DICE? <Y/N> 

310 U*= INKEY* 

320 IF U* S ="N" THEN RETURN ELSE IF U*<>"Y" THEN 300 

330 PRINT®640, "TYPE IN THE NUMBERS OF THE DICE YOU WANTTO SWAP " 

340 FOR F=1 TO 2 
350 U*«INKEY* 

360 IF U*>"5" OR U*<"1" THEN 350 
370 X <F) “VAL (U*> 

380 PRINT®840+4*F,X(F> 

390 NEXT F 

400 X=D (X(l) ) s D ( X ( 1 ) )=D(X(2) ):D<X(2) ) =E X _ _ TL , 

405 IF D(X(1))=1 THEN Ml=246 ELSEIF D ( X < 1 ) ) =2 THEN Ml=252 ELSEIF D ( X < 1 ) ) *3 THEN Ml=234 ELSE IF D < X ( 1 > ) *4 THEN Ml-247 ELSEIF D(X(l>>-5 TH 
EN Ml“249 ELSEIF D<X(1))*=6 THEN Ml*254 _ ^ v _ TLJ 

407 IF D ( X (2) ) =1 THEN M2*246 ELSE IF D(X<2>)=2 THEN M2=252 ELSEIF D(X(2))=3 THEN M2=234 ELSEIF D(X(2))=4 THEN M2=247 ELSEIF D(X(^))*5 TH 
EN M2~249 ELSEIF D(X(2>>=6 THEN M2=254 

410 PRINT®40*X < 1 ) *2+9, CHR* (Ml ) s PRINT®40*X (2) *2+9, CHR* (M2) 

420 PRINTSB44," 

430 GOTO 300 

440 IF TH=*3 THEN RETURN 



45<J L— 0 

455 REM: ****RE-THROW ROUTINE ************ 

460 PRINTS>640, " DO YOU WANT TO THROW ANY DICE AGAIN ? (Y/N) 

470 U*=INKEY* 

480 IF U*="N" THEN RETURN 

470 IF U*~"Y" THEN 500 ELSE 460 

500 PRINTS>640, "TYPE IN THE NUMBER OF THE DICE YOU WANT TO RE— THROW" 

510 U*=INKEY* 

520 IF U*>"5" OR U*< M 1" THEN 500 
530 PRINTS)844 , U* 

540 L*VAL(U$) 

550 D (L) — RND ( 6 ) 

560 PRINTS>844, " " ; : PRINTS>640, M IS THAT ALL? (Y/N) 

570 U*=INKEY* 

580 IF U*="N "THEN 500 ELSE 590 
590 TH=TH+1 

610 IF D(L)=1 THEN M<L>=246 ELSE IFD(L>=2 THEN M(L>=252 ELSEIF D(L)=3 THEN M < L ) =234ELSE I F D<L)=*4 THEN M < L) -247ELSE IF D(L)*=5 THEN M(L)=2 
49ELSEIF D (L ) =6 THEN M (L) =254 
620 PRINTS>40*L*2+9,CHR*(M(L> ) 

640 G0T060 

645 REM ***MENU PRINT ROUTINE*********** 

650 PRINTS>40, j 
660 RESTORE 

670 DATA ACES, TWOS, THREES, FOURS, FIVES, SIXES, THREE OF A KIND, FOUR OF A KIND, YAHT2EE, SMALL STRAIGHT, LARGE STRAIGHT, FULL HOUSE, CHANCE 
680 FOR F=*l TO 13: READ L*(F) 

690 IF S <F ) =0 THEN PRINTS) F*40+ 1 6, F; •• > 

700 PRINTS)F<40+20, F 5 " ";L*(F> 

710 NEXT F 

720 REM: MENU SELECT ROUTINE ************* 

730 PRINTS>640, "TYPE IN YOUR SELECTION (NUMBER ONLY) 

740 INPUT L • 

750 IF L>130R L< 1 THEN 740 

760 IF S (L) < >0 THEN 740 

770 IF L<7 THEN 830 

780 IF L=13 THEN 980 

790 IF L—7 OR L =8 THEN 8B0 

800 IF L*9 THEN 1000 

BIO IF L=10 OR L=ll THEN 1060 

820 GOTO 1230 

825 REM: SCORING ACES TO SIXES ********** 

830 FOR F=1 TO 5 

840 IF D <F) *=L THEN S (L) =S (L) +L 

850 NEXT F 

860 IF S (L) =0 THEN S(L)=-10 
870 GOTO 1280 

875 REM: ***SCORING 3 AND 4 OF A KIND***** 

880 PRINTS>640, "ENSURE THAT YOUR" ; L-4; "OF A KIND ARE ON THE LOWEST DICE NUMBERS" 

890 GOSUB 1360 

900 GOSUB 300 

910 FOR F=1 TO L-4 

920 IF D<F)OD(l) THEN S(L)»-10 

930 NEXT F 

940 FOR F**l TO L-4 

950 IF S (L) < >—10 THEN S (L) =S <L) +D <F) 

960 NEXT F 
970 GOTO 1280 

975 REM: ***SCQRING CHANCE *************** 

980 FOR F®1 TO 5 : S <L) =S CL) +D <F) : NEXT F 
990 GOTO 1280 

995 REM:*** YAHTZEE SCORING ROUTINE ***** 

lOOO FOR F=1 TO 5 

1010 IF D(F)OD(l) THEN 1040 

1020 NEXT F 

1030 S <L) =60: GOTO 1050 

1040 S (L) *S (L) — 10 

1050 GOTO 1280 


T 


1055 HEM:*** STRAIGHT SCORING ROUTINE ***** 

1060 IF L=ll THEN 1100 

1070 PRINT5)640, "MAKE SURE THAT THE DICE NOT IN YOUR STRAIGHT IS DICE 5 M 

1080 GOSUB 1360 
1090 GOSUB 300 

UOO PRINT3640, "MAKE SURE THAT THE STRAIGHT IS IN ORDER** 
lllO GOSUB 1360 

1120 PRINT5)640, "AND THE LOWEST NUMBER IS ON DICE 1 

1130 GOSUB 1360 

1140 GOSUB 300 

1150 FOR F=2 TO L-6 

1160 IF D <F) < >D <F“1 ) +1 THEN 1210 

1170 NEXT F 

1180 S (L) “40 

1190 IF L=1 1 THEN S<L)=50 
1200 GOTO 1220 
1210 S <L) =S (L> -10 
1220 GOTO 1280 

1225 REMi*** FULL HOUSE SCORING ROUTINE *** 

1230 PRINT3640, "MAKE SURE YOUR PAIR IS ON DICE ONE AND DICE TWO" 

1240 GOSUB 1360 
1250 GOSUB 300 

1260 IF D ( 1 ) =D (2) AND D<3)=D<4) AND DC5)=D<4> THEN S(12)=35ELSE S < 12) »=S ( 12) -10 
1270 GOTO 1280 

1275 REM**** ADDING TOTAL SCORE ******* 

1280 SC»0 

1290 FOR F=1 TO 1 3: SC=5C+S <F> 

1300 PRINT»F*40+16, “ 

1310 NEXT F 

1320 IF S(l)+S(2)+S(3)+S(4)+S(5)+S(6)=63 THEN SC=SC+35 
1330 RETURN 

1340 PRINT3640, "GAME OVER - DO YOU WANT ANOTHER < Y/N) " s INPUT U* 

1350 IF U*="N M THEN END ELSE IF U$= H Y" THEN GOTO 1440 ELSE IF U*< >N THEN 1350 
1360 PRINT3720, "HIT A KEY" 

1370 K*~INKEY*:IF K*«"" THEN 1370 
1380 PRINTS>0, STRING* <40, 32) 

1390 PRINT3>720, " 

1400 RETURN 

1440 FOR F*1 TO 13s S (F) *=0: NEXT FsGOTO 40 


RDER FORM FOR CO LOUR GENIE SOFTWARE 




ADDRESS 

PLEASE SUPPLY THE FOLLOWING ITEMS 

QUANTITY 

ITEM 


POSTAGE 


TOTAL 


ORDER FORM FOR COLOUR GENIE SOFTWARE AND PERIPHERALS 


ADDRESS 

PLEASE SUPPLY THE FOLLOWING ITEMS 

QUANTITY 

ITEM 


POSTAGE 
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